﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class InvfisFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As InvfisBE
        Dim tmpInvfis As InvfisBE = New InvfisBE()
        Try
            With tmpInvfis
                .CodBar = convertDTFromDb.ConvertString(dr.Item("CodBar"))
                .DesProducto = convertDTFromDb.ConvertString(dr.Item("DesProducto"))
                .Existencia = convertDTFromDb.ConvertString(dr.Item("Existencia"))
                .Id = convertDTFromDb.convertInt32(dr.Item("Id"))
                .IdEmpresa = convertDTFromDb.ConvertShort(dr.Item("IdEmpresa"))
                .Ubicacion = convertDTFromDb.ConvertString(dr.Item("Ubicacion"))
            End With
            Return tmpInvfis
        Catch ex As Exception
            Throw
        Finally
            tmpInvfis = Nothing
        End Try
    End Function
End Class
